Top 10k strings from Backer v2.0 (1983)(Andrew Giles).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
1 x D< DTTD< 1 ld hl,Text;ld (Data),hl 1 ld hl,T8;ld b,8;call Page;xor a;ld (Vf),a;ld a,(Count+1);jr O4 1 ld hl,T1;ld b,126;call Page 1 ld hl,(Data);ld de,11;add hl,de;ld e,(hl);inc hl;ld d,(hl);ld bc,6;add hl,bc 1 ld a,d;or e;ret z,;ld hl,T3;ld b,18;call Page;call Get;jp S1 1 ld a,73;ld hl,32768;ld (hl),a;cp (hl);jr z,S1;ld hl,32767;ld (23732),hl 1 ld a,13;rst 16;ld e,(hl);inc hl;ld d,(hl);ld bc,6;add hl,bc;ld (Data),hl;ld ix,(Data) 1 ld (Data),hl;ld ix,(Data);add hl,de;ld (Data),hl;ld a,255;call 1222;call Delay;ld hl,Count;dec (hl);jr nz,F1;jp S1 1 defs Warning: the use of this programmay be an offence.;defb 13;defb 13;defs Select: 1 defb 13;defs 1 LOAD;defb 13;defs 2 SAVE;defb 13;defs 3 VERIFY;defb 13;defs 4 END 1 cp 5;jr nc,S2;cp 1;jr c,S1 1 cp 4;jp z,0;cp 1;jp z,Load;cp 2;jp z,Save 1 call Check;add hl,de;ld (Data),hl;call Check;ld a,(Vf);rla;ld a,255;call Lo1;ld hl,Count;dec (hl);jr nz,O2 1 Warning: the use of this programmay be an offence. 1 Vf;defb 255;Count;defw 0;Data;defw 0 1 TAPE LOADING ERRORStart the tape and press any key 1 T8;defs VERIFY;defb 13;defb 13 1 T5;defs Start the tape and press any key 1 T4;defs OUT OF MEMORY 1 T3;defs TAPE LOADING ERROR 1 T2;defs How many blocks of data? (1-9);defb 13;defb 13 1 T1;defs BACKER V 2.0;defb 13;defb 13;defs 1 Save;ld a,(Count+1);ld (Count),a;ld hl,T5;ld b,32;call Page;call Get 1 S2;call Get 1 S1;ld hl,23550;ld sp,hl;ld (iy+14),56;ld a,7;out (254),a;xor a;ld (23697),a;ld hl,15360;ld (23606),hl 1 Retl;ld a,127;in a,(254);rra;ei;ret nc 1 Page;push hl;push bc;call 3435;res 0,(iy+2);pop bc;pop hl 1 OUT OF MEMORYVERIFY 1 O4;ld (Count+1),a;ld (Count),a;ld hl,Text;ld (Data),hl 1 O2;ld de,18;ld ix,(Data);ld a,(Vf);rla;ld a,0;call Lo1;ld hl,(Data);inc hl;ld b,10;call L1 1 Load;ld a,255;ld (Vf),a;ld hl,T2;ld b,32;call Page;O1;call Get;cp 10;jr nc,O1;cp 1;jr c,O1 1 Lo1;inc d;ex af,af';dec d;di;ld a,15;out (254),a;ld hl,Retl;push hl;jp 1378 1 L1;ld a,(hl);inc hl;rst 16;djnz L1;ret 1 How many blocks of data? (1-9) 1 Get;ld hl,23560;ld (hl),0;ld a,(hl);G1;cp (hl);jr z,G1;ld a,(hl);sub 48;ret 1 F1;ld de,18;ld ix,(Data);xor a;call 1222;call Delay 1 Delay;ei;ld b,50;D1;halt;djnz,D1;ret 1 D DD <TT<D 1 Check;jr c,Ch1;push hl;ld bc,(23732);sbc hl,bc;pop hl;ret c,;Ch1;ld hl,T4;ld b,13;call Page;call Get;jp S1 1 BACKER V 2.0 1 2#^2"^!0_"$^ 1 z,S1;ld hl,32767;ld (23732),hl 1 1983 Andrew Giles;defb 13;defb 13;defb 13 1 1983 Andrew Giles